@array = (1..5);
print @array;     print "\n";
print $array[0];  print "\n";
print $array[1];  print "\n";
print $array[2];  print "\n";
print $array[3];  print "\n";
print $array[4];  print "\n";